home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / burmest.dxr / 00040.ls < prev    next >
Encoding:
Text File  |  1996-03-22  |  1.2 KB  |  51 lines
  1. on exitFrame
  2.   set i to 11
  3.   set check to 0
  4.   set hot to hot
  5.   repeat while i < 16
  6.     if rollOver(i) then
  7.       set check to 1
  8.       set hot to i
  9.       exit repeat
  10.     end if
  11.     set i to i + 1
  12.   end repeat
  13.   set i to 2
  14.   if check = 0 then
  15.     repeat while i < 7
  16.       set the visible of sprite i to 0
  17.       set i to i + 1
  18.     end repeat
  19.   end if
  20.   if check = 1 then
  21.     if (hot = 11) or (hot = 13) then
  22.       set the visible of sprite 3 to 0
  23.       set the visible of sprite 5 to 0
  24.       set the visible of sprite 6 to 0
  25.       set the visible of sprite 2 to 1
  26.       if rollOver(13) then
  27.         set the visible of sprite 4 to 1
  28.       else
  29.         set the visible of sprite 4 to 0
  30.       end if
  31.     end if
  32.     if (hot = 12) or (hot = 14) or (hot = 15) then
  33.       set the visible of sprite 2 to 0
  34.       set the visible of sprite 4 to 0
  35.       set the visible of sprite 3 to 1
  36.       if rollOver(14) then
  37.         set the visible of sprite 5 to 1
  38.       else
  39.         set the visible of sprite 5 to 0
  40.       end if
  41.       if rollOver(15) then
  42.         set the visible of sprite 6 to 1
  43.       else
  44.         set the visible of sprite 6 to 0
  45.       end if
  46.     end if
  47.   end if
  48.   updateStage()
  49.   go(the frame)
  50. end
  51.